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ABSTRACT 


COMPUTE is a computer program, written primarily in FORTRAN IV, which oper- 
ates under the IBM 360/67 Time-Sharing System (TSS). COMPUTE allows the TSS user 
to perform various numerical calculations without writing FORTRAN programs. The 
user may thus solve various numerical problems while at the TSS terminal by simply 
communicating with COMPUTE. This report is intended to introduce the user to 
COMPUTE. It is anticipated that the user will obtain from this introduction the informa- 
tion necessary to begin using COMPUTE. More specific information about the capabil- 
ities of COMPUTE can be derived from the actual use of the program. This is possible 
because of numerous error, warning, and information messages generated by COMPUTE 
and printed at the terminal. 
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COMPUTE - A TIME-SHARING DESK CALCULATOR PROGRAM 

by Paul Swigert 
Lewis Research Center 


SUMMARY 

COMPUTE is a computer program written primarily in FORTRAN IV and operates 
under the IBM 360/67 Time Sharing System (TSS). COMPUTE allows the TSS user to 
perform various numerical calculations without writing FORTRAN programs. The user 
may thus solve various numerical problems while at the TSS terminal by simply com- 
municating with COMPUTE. 

This report is intended to introduce the user to COMPUTE. It is anticipated that the 
user will obtain from this introduction, information necessary to begin using COMPUTE. 
More specific information about the capabilities of COMPUTE can be derived from the ac- 
tual use of the program. This is possible because of numerous error, warning, and in- 
formation messages generated by COMPUTE and printed at the terminal. 


INTRODUCTION 

Computer time- sharing, or the simultaneous use of the computer by many users, 
allows the computer to be used in a variety of new ways. One of these new applications 
makes the computational power of a large computer available to the nonprogrammer, 
such as a research scientist, engineer, or mathematician. These personnel often need 
solutions to mathematical problems that are too lengthy for a desk calculator and yet 
simple enough so that the time taken to describe the problem to a programmer is greater 
than warranted. 

Because of the unique man-machine dialogue provided for in time- sharing, the user 
may correct mistakes as they occur. This interaction eliminates the time involved in 
submitting several conventional batch computer jobs to correct errors. This time some- 
times is measured in days, even for simple programs. 

Another advantage to solving one's own problem with time-sharing is that the prob- 
lem parameters may be varied dynamically by the user. That is, if an unexpected result 
is obtained in the solution of a problem, the causes may be investigated immediately and 



corrected or resolved. This approach to problem solving is completely absent in a non- 
time-sharing environment. 

To provide this service to personnel who have had no, or limited, experience with 
computers and also to computer programmers, an interpretive on-line computer language 
was developed. Interpretive means that the language statements are executed or stored 
primarily in the form in which they are entered. On-line refers to the direct communica- 
tion between the user and the computer. 

This language, which consists of various statements, is the input to a computer pro- 
gram. This program, written primarily in FORTRAN, is called COMPUTE. The user 
need not distinguish between the physical computer, the program COMPUTE, or the lan- 
guage. He only needs to know a few statements and how to write FORTRAN-like expres- 
sions. Because of extensive error and information messages, the user is able to learn 
the language by using it. 

Along with providing a nonprogrammer with computational facilities, such as func- 
tion evaluation, algebraic expression evaluation, looping, and integration, COMPUTE is 
flexible enough to allow a programmer to expand COMPUTE’S facilities. This is made 
possible by COMPUTE'S ability to reference programs written by the user. These user 
programs may be anything from matrix manipulation programs to microfilm plotting pro- 
grams. 

The purpose of this report is to describe the use of COMPUTE. It is not intended to 
be a description of the COMPUTE program, but rather a user's manual. Some of the ma- 
terial in the report will be elementary for programmers, while some will seem advanced 
to the nonprogrammer. The potential user should not be too concerned with concepts he 
does not understand. The real advantage of a language of this type is that the user can 
learn it by experimenting. He should feel free to try his ideas and let COMPUTE point 
out errors and inconsistencies. 

The next section gives some basic information about the overall use of COMPUTE. 
Terms used in describing COMPUTE commands are listed in the section DEFINITION OF 
TERMS. COMPUTE commands and input statements are then presented. Appendix A 
gives a summary of COMPUTE commands and statements with command abbreviations. 

The abbreviations may be used as if they were the command they represent. Appendix B 
is an annotated example of a COMPUTE terminal session. 


PRELIMINARY CONCEPTS 

COMPUTE may be accessed through a remote terminal connected to a central com- 
puter. The terminal may be one of many different types; for example, a typewriter, a 
teletype machine, and a CRT (cathode ray tube) with typewriter input. Each of these 
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terminals will probably have its own method of entering, correcting, or canceling a line 
of input. Because of these differences, the physical operation of entering a line is not 
discussed. The reader should be aware, however, that the basic unit of input is one line 
of characters. 

After the user has "logged on, " that is, identified himself to the system, the first 
line to be entered is 


RUN COMPUTE 

The system will then print some information, and COMPUTE will print 

ENTER USE KEYWORD 

The use keyword is a parameter of COMPUTE that is used for special applications. The 
use keyword is of minor concern to a COMPUTE user and should be defaulted by entering 
a line of blanks (i. e. , simply press the return key). COMPUTE will now print 

INITIALIZATION COMPLETE 
READY 

The first line indicates that COMPUTE is in an initial state. The READY means that 
COMPUTE is now ready to accept user input. The READY is not printed when COMPUTE 
is waiting for a response, from the user, for some information needed to complete the 
current task. 

Since the basic unit of input to COMPUTE is one line, provision is made for continu- 
ation lines. If the last character of any line is a vertical bar (|), the next line is consid- 
ered to be a continuation. The maximum number of lines is three. Therefore, only two 
consecutive continuation lines are allowed. 

Comments may be included anywhere in any line by enclosing the comments in apos- 
trophes. For example, 'THIS IS A COMMENT. ' would be considered as a comment by 
COMPUTE. Spaces or blanks are ignored by COMPUTE and may be placed anywhere in 
the input line. 

COMPUTE will automatically inform the user of commands that are used incorrectly, 
of errors in expressions, and of various limits if they are exceeded. Therefore, the user 
does not need to remember many restrictions and forms. This is advantageous to the oc- 
casional user. The new user also benefits since he can let COMPUTE teach him its lan- 
guage by supplying information about itself. 
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DEFINITION OF TERMS 


II 


. JLJiiillillJL .... 


Name: One to eight alphameric characters, the first of which must be alphabetic. 

There are five types of names depending on how they are defined to 
COMPUTE. The method by which these names are defined to COMPUTE is 
discussed in the next section. The five types are 

(1) Value names 

(2) User function names 

(3) Procedure names 

(4) User program names 

(5) System function names 
Examples: L5 

JOBl 

ALPHA 

75 

Value: A number whose magnitude is between the approximate limits of 10 and 

-75 

10 , or zero. These numbers may be written in scientific notation by re- 

±NN 

placing the xlO by E±NN. The plus sign may be omitted. For example, 
-23 

1. 63x10 is written as 1. 63E-23. All computation is performed with 
about six decimal digits. Number inputs to COMPUTE are rounded to this 
accuracy. 

Examples: 21 

.203 
5E3 
5. 0E-3 

Expression: Values, names, and function references (user or system) combined by 

arithmetic operation symbols and parentheses. The arithmetic operators 
are 

(1) Exponentiation, ** 

(2) Multiplication, * 

(3) Division, / 

(4) Addition, + 

(5) Subtraction, - 

Where parentheses are omitted or where the entire arithmetic expres- 
sion is enclosed within a single pair of parentheses, the order in which the 
operations are performed is as follows: 

(1) Evaluation of functions 

(2) Exponentiation, ** 

(3) Multiplication and division, * and / 
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(4) Addition and subtraction, + and - 

In addition, if two operators of the same level are used consecutively, the 
operations are performed from left to right. 

Parentheses may be used in arithmetic expressions, as in algebra, to 
specify the order in which the arithmetic operations are to be performed. 
Where parentheses are used, the expression within the parentheses is eval- 
uated before the result is used. Example: A**(-l. 5) *SIN (BETA/3. 6)/(X+Y) 
is equivalent to 

a" 1, 5 sin 


x + y 

COMPUTE STATEMENTS 

This section gives descriptions and examples of all valid COMPUTE statements and 
commands. Most of the commands have abbreviations that may be used in place of the 
full command. These abbreviations along with a summary of COMPUTE statements are 
given in appendix A. 



Name Definition Statements 

COMPUTE allows the user storage of and/or access to certain types of information. 
This information is grouped into five categories: 

(1) Values 

(2) User functions 

(3) Procedures 

(4) User programs 

(5) System functions 

Each piece of information to be saved or accessed, except the system supplied func- 
tions, is given a name by the user. The user may use any name he chooses except the 
reserved system function names, such as SIN, COS, and ABS. Each of the categories 
are discussed separately in the following paragraphs: 

Values . - Values are defined to the program by typing a name, an equal sign, and an 
expression. The program will evaluate the expression, save the result, and give the re- 
sult the name appearing on the left of the equal sign. 

General form: name = expression 
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Examples: A = 3. 0 

B = A*(26+2. 8) 

ALPHA = SIN (2. 8) 

Z23 = Z*(X+Y) 

User funct ions. - User functions are defined to the program by typing a name (the 
name to be assigned to the function), argument names separated by commas and enclosed 
in parentheses, an equal sign, and an expression that contains the argument names. 
(Argument names are dummy variables and are meaningful only in the function definition. ) 
The program will save the function and give it the name appearing to the left of the paren- 
theses enclosing the arguments. This user function may then be evaluated, by use in an 
expression, as many times as desired. 

General form: names(namel, name2, name3, . . .) = expression 

Examples: CUBRT(X) = X**0. 333333 
F(X) = a*X**2+B*X+C 
DF(X) = 2*A*X+B 
G(X) = X-F(X)/DF(X) 

NR5(X) = G(G(G(G(G(X))))) 

SIN2(Z) = SIN(Z)**2 
SUMSQ(X, Y) = X**2+Y**2 

(The function NR5, when evaluated, will give a value equal to five Newton-Raphson itera- 
tions on the function F, where the argument to NR5 is the initial guess. ) 

Procedures . - A procedure is a group of value definitions and/or value output state- 
ments that are to be used in a looping or iterative process. The general form of defining 
procedures to the program is 

BEGIN (name) 

Any number of value definitions and/or value output statements. 

END or END (expression 1 > or < expression 2) 

COMPUTE will save the statements between the BEGIN and END statements and give 
them the name that appears in the parentheses of the BEGIN statement. These state- 
ments will be numbered automatically by COMPUTE. The numbers are appended to the 
READY statements printed between the BEGIN and END statements. Two forms of the 
END statement are permitted. The first one, where no parentheses appear, assumes 
that the looping will terminate after a maximum number (specified by the user) of itera- 
tions has been reached. The second form allows the user to end the looping when the 
conditional expression inside the parentheses is satisfied or after a maximum number of 
iterations, whichever occurs first. No provision has been made to allow the alteration 
or insertion of statements in procedures. 
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Example: BEGIN (ALPHA) 

X = X+l 

Y = SQRT (X) 

X = ? 

Y = ? 

END (X>25) 

To perform the operations stored in procedures the name of the procedure and the 
maximum number of iterations must be supplied. The general form of supplying this in- 
formation is 


or 


DO (name* value) 


DO (name) 

Here, name refers to the name of a procedure and value to the maximum number of itera- 
tions desired. If the second form is used, value is assumed to be 1. 

Examples: DO (ENT*20) 

DO (BETA *5) 

DO (NEWTON) 

User programs . - User programs are FORTRAN or assembly language subprograms 
that have been compiled or assembled before running COMPUTE. Access to a function 
subprogram is achieved by simply using the function name, with the proper number of 
arguments, in an expression. A call to subroutine is made by typing the subroutine name 
along with the arguments, if any, enclosed in parentheses. In this manner the user de- 
fines to COMPUTE the name as a user program name. 

The subprograms are free to reference data, call other subprograms, and perform 
input and output like any TSS subprogram. The subprograms are restricted, however, 
from passing data back to COMPUTE through the calling vector. Data may be passed to 
COMPUTE only as the result of a function subprogram. Since COMPUTE performs all 
its calculations in floating point arithmetic, it makes no sense to consider subprograms 
that require arguments or yield function results in any other number type. 

In the following examples, assume that SUB1 and SUB2 are subroutines and that FI 
and F2 are functions that have been previously compiled or assembled. The first ex- 
ample would cause subroutine SUBl to be loaded and called. The execution of a return 
statement in SUBl would return control to COMPUTE. In the second example, function 
subprogram Fl would be loaded and called with two arguments, X and Y. Subroutine 
SUB2 would then be loaded and called with three arguments, X, Y, and the value obtained 
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from funcation FI. The third example would load F2 and make three calls to it. The 
first call would have Z as the argument. The second call would use the value obtained 
from the first call, and the last call would use the value from the second call as the argu- 
ment. 

Examples: SUBl 

SUB2(X,Y, F1(X, Y)) 

A = F2(F2(F2(Z))) 

System functions. - Certain commonly used function have been defined to COMPUTE 
and are always available to the user. The names of these functions are system function 
names. The system function names are reserved names in that the user may not use them 
except to refer to the functions they represent. 

A list of system functions available to the user, at this writing, appears in table I. 
Two facts about the system functions in table I are worth noting: (1) all trigonometric 
functions either accept radian measure as their argument or yield radian measure as their 
functional value, and (2) the integration function INT is simply a function of three argu- 


TABLE I. - LIST OF AVAILABLE SYSTEM FUNCTIONS 


Name 

Definition 

Argument range 

EXP 

Exponential 

X < 174.673 

LN 

Natural logarithm 

X > 0 

LOG 

Common logarithm 

X > 0 

SIN 

Sine 

|x| < (2**18) *PI 

COS 

Cosine 

jxj < (2**18)*PI 

TAN 

Tangent 

jxj < (2**18)*PI 

ARCSIN 

Arcsine 

|X|<1 

ARCCOS 

Arccosine 

|X| <1 

ARCTAN 

Arctangent 

No restriction 

SINH 

Hyperbolic sine 

X < 174.673 

COSH 

Hyperbolic cosine 

X < 174.673 

TANH 

Hyperbolic tangent 

No restriction 

SQRT 

Square root 

X > = 0 

ERF 

Error function 

No restriction 

ERFC 

Complemented 
error function 

No restriction 

GAMMA 

Gamma function 

2**(-252) < X < 57. 574 

LNGAMMA 

Natural logarithm of 
gamma function 

0 < X < 4. 2913E +73 

ABS 

Absolute value 

No restriction 

INT 

Integration. 

3 arguments 

(USR function, limit, limit) 

No restriction 
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merits, the user function name, an expression for the lower limit, and an expression for 
the upper limit. 

Any system function may be used in user function definitions, thus allowing the user 
to build quite complicated functions. The system functions may, of course, be nested just 
as user functions and user program functions. 

Additions and alterations may be made to the system functions from time to time. 

The user is, therefore, advised to obtain a current list by occasionally using the DUMP 
command. The DUMP command is discussed in the section Nonvalue output. 


Output Statements 

There are two categories of output statements recognized by COMPUTE: 

(1) Value output 

(2) Nonvalue output 

The value output category allows the user to print results of numerical operations, while 
the nonvalue category allows the user to print user functions, procedures, and system 
function names. Only statements in the value output category are allowed in procedures. 
The value output statements are discussed first. 

Value output . - Value output is divided into three general forms. A description of 
these forms follows: 

(1) Form 1: To obtain the value assigned to a value name, the user types the value 

name followed by an equal sign and a question mark. 

General form: name = ? 

Examples: A = ? 

ROOT = ? 

(2) Form 2: The user may obtain the result of an expression by typing the expression 

followed by an equal sign and a question mark. 

General form: expression = ? 

Examples: 6. 0**0. 5 = ? 

SIN (2. 6) = ? 

A+B*COS(C) = ? 

(3) Form 3: For output of several values assigned to value names, the PRINT com- 

mand is available. The names that appear in this command must be 
value names. 

General form: PRINT (namel, name2 . . .) 

Examples: PRINT (A, B, C) 

PRINT (ROOT, ANSWER) 
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Nonvalue output . - Nonvalue output is also divided into two general forms. A de- 
scription of these forms follows: 

Form 1: To obtain information about a nonvalue name (i. e. , a user function, pro- 
cedure, program, or system function name), the user types the name fol- 
lowed by an equal sign and a question mark. COMPUTE will then respond 
with a description of the name type. 

General form: name = ? 

Examples: ALPHA = ? 

SIN = ? 


SQRT = ? 

Form 2: To obtain a listing of all names of a certain type, the user types the com- 
mand DUMP followed by an option enclosed in parentheses. If the user 
specifies value names to be listed, the corresponding values are also listed. 
General form: DUMP (option) 

(VALUES 


Where option = J 


I USR FUNCTIONS 
SYS FUNCTIONS 
^PROCEDURES 
Examples: DUMP (VALUES) 

DUMP (USR FUNCTIONS) 
DUMP (PROCEDURES) 
DUMP (SYS FUNCTIONS) 


Erase Statements 

Two commands are provided that allow the user to delete, from the program, names 
that have been defined by the user. 

The first command deletes all names, except system function names and user pro- 
gram names, from COMPUTE. This command also allows the user to enter a new use 
keyword if desired. 

General form: RESTART 

Example: RESTART 

The second command deletes specific names from the program. To accomplish this 
the user types the command ERASE followed by the names to be deleted enclosed by 
parentheses. These names may include any name that has been defined by the user, ex- 
cept user program names. This command does not allow the user to erase specific lines 
of a procedure, but will erase complete procedures. 

General form: ERASE (namel, name2, . . .) 
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Examples: ERASE (F, DF) 

ERASE (A, B, ALPHA) 

Numerical Integration Statement 

Numerical integration of user functions is provided for in COMPUTE through the 
INTEGRATE command. After the INTEGRATE command is entered, COMPUTE prompts 
the user for the user function name or user function definition and for the limits of inte- 
gration. The answer is then printed. A warning is printed if the answer is not accurate 
to five significant figures. The INTEGRATE command is simply a different form of the 
INT function described in the section Name Definition Statements. Results obtained from 
the two forms will be identical. 

General form: INTEGRATE 

Example: INTEGRATE 


Return Statement 

A command is provided by COMPUTE that allows the user to return to the TSS sys- 
tem. 

General form: STOP 
Example: STOP 


CONCLUDING REMARKS 

The computer time- sharing program described in this report promises to make some 
of the computational power of large computers available to noncomputer personnel. 
Complex desk-type calculations are made simple and fast. The program has been made 
flexible enough so that additions are easy to make. When new facilities are added to the 
computer system, COMPUTE may be modified easily to incorporate them. 

Extensions of COMPUTE that are presently being considered are (1) plots of user 
functions on a CRT (cathode ray tube) or on microfilm, (2) algebraic manipulation, and 
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(3) a differential equations solver. With these added features COMPUTE will become an 
even more powerful tool for on-line problem solving. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, October 3, 1968, 

125-23-02-15-22. 
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APPENDIX A 


SUMMARY OF COMPUTE STATEMENTS AND ABBREVIATIONS 

This appendix contains a list of all valid COMPUTE statements, along with a brief 
description and abbreviation (if any). The abbreviation may be used in place of the full 
command. For a complete description of the commands, the text of this report should be 
consulted. 

General form of statement Description Abbreviation 

name = expression Defines name as the value obtained None 

from (expression). 

name(namel, name2, . . . ) Defines name as a user function None 

= expression with the function being (expression). 

BEGIN (name) Denotes the start of what is to be B(name) 

procedure (name). 

END or 

END (expressionl > or < Denotes the end of the procedure None 

expression2) started by a previous begin state- 

ment. 

Causes statements stored in pro- None 
cedure (name) to be looped through 
a maximum number (value) or 
times. 

name = ? Causes the value stored in (name) None 

or information about (name) to be 
printed. 

expression = ? Causes the value obtained from None 

evaluation of (expression) to be 
printed. 

PRINT (namel, name2, . . . ) Causes the values stored in P(namel, name2, . . . ) 

(namel), (name2), . . ., etc. 
to be printed. 


DO(name*value) or 
DO(name) 
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General form of statement 


Description 

Abbreviation 

DUMP (option) 

Causes all names of the type 
specified in option to be printed. 

D (option) 



VALUES 

V 


option 

USR FUNCTIONS 

UF 


! 

SYS FUNCTIONS 

SF 



PROCEDURES 

P 

RESTART 

Initializes COMPUTE by erasing 
all names except system and user 
program names. Allows the user 
to enter a new use keyword. 

R 

ERASE (namel, name2, . . . ) 

Erases the values, user func- 
tions, and procedures with the 

E (namel, name2, . . . 


names 

(namel), (name2), . . 



etc. 



INTEGRATE 

Numerically integrates user func- 

I 


tions. 



STOP 

Returns user to TSS. 

S 
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APPENDIX B 


ANNOTATED COMPUTE LISTING 

The listing presented in this appendix is from an actual COMPUTE session. The line 

numbers were added to aid the reader in following the description. 

The user usually types in lower case, while the system and user programs type in 

upper case. This convention is terminal dependent, however. 

Description 

In the description the numbers refer to line numbers on the listing. 

Line(s) Description 

1-2 User identifies himself to the time-sharing system. 

3 User requests that program COMPUTE be run. 

4 System message identifying input/output version. 

5 COMPUTE requests use keyword from user. 

6 User enters a line of blanks, by pressing return, to default this parameter. 

7 COMPUTE acknowledges that the use keyword is valid and that COMPUTE 
is in an initial state. 

8 COMPUTE indicates that it is ready to accept user input. 

9-22 User defines a procedure named NEWTON. This procedure uses the Newton- 
Raphson technique to find the root of the user function F(X). The procedure 
will print the independent variable, functional values of the function F, the first 
derivative of F, and the correction factor H. The procedure will stop looping 
when the magnitude of the correction factor becomes less than the value of 
LIMIT. Note the numbering of statements contained in procedures. This pro- 
cedure is six statements long. 

23 The user requests that procedure NEWTON be looped through a maximum of 

10 times. 

24-25 COMPUTE asks the user to define an unknown variable and the user responds. 

26-28 COMPUTE detects an error and informs the user. 

29-33 User defines the two required functions and executes procedure NEWTON again. 
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Line(s) 


Description 


34-39 

40 

41-45 

46-47 

48-56 

57-59 

60-69 

70-71 

72-78 

79-119 

120 

121-126 

127-129 

130-141 

142-145 


146-155 

156-160 

161-171 


COMPUTE requests and user defines unknown values. 

First line of output from NEWTON is printed by COMPUTE. 

The last unknown value is defined, and COMPUTE continues to loop through 
NEWTON. 

COMPUTE indicates that looping was stopped because the condition in the END 
statement was met. 

User redefines the independent variable and initiates NEWTON again. An error 
is detected and reported by COMPUTE and verified by the user. 

User changes the independent variable and initiates NEWTON. 

Output generated by NEWTON. 

Looping was terminated because of maximum iterations. 

Since convergence has not been achieved, the user continues the looping by is- 
sueing another DO command. COMPUTE continues to loop in NEWTON until 
the condition in the END statement is met. 

Illustration of the different options in the DUMP command. 

User issues the INTEGRATE command. 

COMPUTE prompts user for needed information and prints the answer. 

User checks COMPUTE answer for the integral. 

User integrates and checks the result for another function. In this example the 
user defines the function instead of supplying a function name. 

The user makes use of the INT function to define Dawson's integral: 



dt 


Note that the definition requires two user functions since the INT function re- 
quires a user function name be its first argument. 

A second procedure is defined. This procedure, DAWSON will use the 
Dawson's integral function just defined and print a table. 

The user initializes X and DELTAX and initiates the procedure DAWSON. 

The table of Dawson's integral generated by the procedure is printed. 
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Line(s) 

172-173 

174-182 

183-188 

189-192 


Description 

COMPUTE informs the user that execution of the procedure was terminated be- 
cause of the iteration count. 

The user makes two references to a user supplied function subprogram. The 
subprogram MAX returns as its functional value the maximum of the supplied 
arguments. Note that the second reference does not cause the program loaded 
message to be printed. This is because the program is only loaded once. 

User requests and obtains a printout of all value names he has defined. 

User issues a STOP command for COMPUTE and a LOGOFF command for the 
time-sharing system. The system acknowledges the STOP and LOGOFF. 
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Sample COMPUTE Listing 


1 #B001 LOGON 09/10/68 15:19 

2 xxpaul , ,n,m, ps 

3 run compute 

4 FIO VERSION JAN 1,1968 

5 ENTER USE KEYWORD. 

6 

7 INITIALIZATION COMPLETE. 

8 READY 

9 beg i n( newton ) 

10 READY 1 

11 fx = f(x) 

12 READY 2 

13 dfx - df ( x ) 

14 READY 3 

15 h = -fx/dfx 

16 READY 4 

17 print(x,fx,dfx,h) 

18 READY 5 

19 x = x+h 

20 READY 6 

21 end (abs ( h ) < 1 im i t ) 

22 READY 

23 do( newton*10 ) 

24 X UNKNOWN. ENTER NUMBER OR PRESS RETURN TO CANCEL. 

25 3 

26 FUNCTION F UNKNOWN. 

27 ERROR IS IN STATEMENT 1 OF PROCEDURE NEWTON 

28 READY 

29 f(x) = a+b*x+c*x**2 

30 READY 

31 df ( x ) = b + 2*c*x 

32 READY 

33 do ( newton*! 0 ) 


34 

A UNKNOWN. ENTER NUMBER 

OR PRESS 

RETURN 

TO 

CANCEL. 

35 

-20 





36 

B UNKNOWN. ENTER NUMBER 

OR PRESS 

RETURN 

TO 

CANCEL. 

37 

o 

OO 





38 

C UNKNOWN. ENTER NUMBER 

OR PRESS 

RETURN 

TO 

CANCEL. 

39 

1 





40 

X- 3.00000 

FX- 13. 

,0000 


DFX- 

41 

LIMIT UNKNOWN. ENTER NUMBER 

OR PRESS 

RETURN 

TO 

CANCEL. 

42 

.00000001 





43 

X- 2.07143 

FX= 0.862241 


DFX- 

44 

X= 2.00042 

FX= 0.505540E- 

02 

DFX- 

45 

X- 2.00000 

FX= 0.0 



DFX- 

46 

END OF DO. 0.0 < 0.100000E-07 




47 

READY 





48 

x=-4 





49 

READY 





50 

do(newton*10) 





51 

DIVIDE BY ZERO. 





52 

ERROR IS IN STATEMENT 3 OF PROCEDURE 

NEWTON 




53 READY 

54 df ( x ) =? 

55 = 0.0 

56 READY 

57 x=-4 . 01 


14.0000 


12.1429 

12.0008 

12.0000 


H= -0.928571 


H= -0.7 10080E-0 1 
H= -0 . 419587E-03 
H- 0.0 
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58 READY 

59 do( newton*! 0 ) 


60 

X = 

-4.01000 

FX = 

-35.9999 

DF X = 

-0.199986E-01 

H = 

-1800.13 

61 

X = 

-1804.13 

FX = 

0.324045E 07 

DF X = 

-3600.27 

H- 

900.057 

62 

X- 

-904.078 

F X = 

810104. 

DF X = 

-1800.16 

H- 

450.019 

63 

x= 

-454.059 

FX = 

202517. 

DF X- 

-900.118 

H = 

224.989 

64 

X s 

-229.070 

FX = 

50620.3 

DFX = 

-430.139 

H = 

112.455 

65 

x= 

-116.615 

F X = 

12646.1 

DFX- 

-225.230 

H- 

56.1475 

66 

x= 

-60.4673 

FX = 

3152.55 

DF X = 

-112.935 

H= 

27.9149 

67 

x= 

-32.5524 

FX = 

779.239 

DFX- 

-57.1048 

H = 

13.6458 

68 

x= 

-18.9066 

F X = 

186.207 

DFX = 

-29.8132 

H = 

6.24578 

69 

x= 

-12.6608 

F X = 

39.0100 

DF X- 

-17.3217 

H = 

2.25210 

70 

END OF DO. 

10 ITERATIONS. 






71 

READY 








72 

do(newton*10 ) 







73 

X = 

-10.4087 

FX- 

5.07190 

DF X = 

-12.8175 

H= 

0.395702 

74 

X = 

-10.0130 

FX = 

0.156586 

DF X = 

-12.0261 

H = 

0.130205E-01 

75 

X- 

-10.0000 

FX = 

0. 167847E-03 

DFX = 

-12.0000 

H = 

0 . 1 398 7 2E-04 

76 

X = 

-10.0000 

FX = 

0.0 

DF X = 

-12.0000 

H = 

0.0 

77 

END OF DO. 

0.0 

< 0. 1 00 00 0 E- 

07 





78 

READY 








79 

dump( va 1 ues ) 







80 

DUMP OF VALUES. 







81 

X = 

-10.0000 

A = 

-20.0000 

B = 

8.00000 

C- 

1.00000 

82 

FX = 

0.0 

DF X = 

-12.0000 

H = 

0.0 

LIMIT- 

0 . 100000E-07 


83 READY 

84 dump(usr functions) 

85 DUMP OF USER FUNCTION NAMES. 

86 FI ARGUMENTS. 

87 DF 1 ARGUMENTS. 

88 READY 

89 dump ( procedu res ) 

90 DUMP OF PROCEDURE NAMES. 

91 NEWTON 

92 READY 

93 dump(sys functions) 

94 LIST OF AVAIABLE FUNCTIONS. 


95 

NAME 

DEFINITION 

ARGUMENT RANGE 

96 

EXP 

EXPONENTIAL 

X<174.673 

9 7 

LN 

NATURAL LOGARITHM 

X>0 

98 

LOG 

COMMON LOGARITHM 

X>0 

99 

SIN 

SINE 

1 X | <(2**18)*PI 

100 

COS 

COSINE 

| X| <( 2**18)*PI 

101 

TAN 

TANGENT 

|X!<(2**18)*PI 

102 

ARCSI N 

ARCSINE 

1 X | < 1 

103 

ARCCOS 

ARCCOS I NE 

IXI <1 

104 

ARCTAN 

ARCTANGF NT 

NO RESTRICTION 

105 

SI NH 

HYPFRBOLIC SINE 

X<174. 673 

106 

COSH 

HYPEPROLIC COSINE 

X<174. 673 

107 

TANH 

HYPFRBOLIC TANGENT 

NO RESTRICTION 

108 

SQRT 

SQUARE ROOT 

X > = 0 

109 

ERF 

ERROR FUNCTION 

NO RESTRICTION 

110 

ERFC 

COMPLEMENTED 

NO RESTRICTION 

111 


ERROR FUNCTION 


112 

GAMMA 

GAMMA FUNCTION 

2**(-252)<X<57.574 

113 

LNGAMMA 

NATURAL LOGARITHM 

0<X<4.2913E+73 

114 


OF GAMMA FUNCTION 


115 

ABS 

ABSOLUTE VALUE 

NO RESTRICTION 

116 

1 NT 

INTEGRATION 

NO RESTRICTION 

117 


3 ARGUMENTS 


118 


( USR FUNCTION, LIMIT, 

LIMIT) 


119 READY 

120 integrate 

121 ENTER USER FUNCTION NAME, DEFINE USER FUNCTION, OR PRESS RETURN TO CANCEL. 

122 df 

123 FNTER LOWER LIMIT, A COMMA, UPPER LIMIT, OR PRESS PETURN TO CANCEL. 

124 0,5.0 

125 THE INTEGRAL IS 65.0000 
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126 READY 

127 f(5)-f(0)=? 

128 = 65.0000 

129 READY 

130 Integrate 

131 ENTER USER FUNCTION NAME, DEFINE USER FUNCTION, OR PRESS RETURN TO CANCEL. 

132 g (x ) -s i n ( x ) 

133 ENTER LOWER LIMIT, A COMMA, UPPER LIMIT, OR PRESS RETURN TO CANCEL. 

134 0.0,3,141595 

135 THE INTEGRAL IS 2.00000 

136 READY 

137 cos ( 0 ) -cos ( p I )=? 

138 PI UNKNOWN. ENTER NUMBER OR PRESS RETURN TO CANCEL. 

139 3.141593 

140 = 2.00000 

141 READY 

142 d(x)=exp(-x**2)*int(e2,0,x) 

143 READY 

144 e2( t ) = exp< t**2 ) 

145 READY 

146 beg i n (dawson ) 

147 READY 1 

148 dx = d(x ) 

149 READY 2 

150 print(x,dx) 

151 READY 3 

152 x = x+de 1 tax 

153 READY 4 

154 end 

155 READY 

156 x = 0 

157 READY 

158 deltax=.2 

159 READY 

160 do(dawson*ll ) 


161 


X = 

0.0 

DX = 

0.0 



162 


x= 

0.200000 

DX = 

0.194751 



163 


x= 

0.400000 

DX = 

0.359943 



164 


x= 

0.600000 

DX = 

0.474763 



165 


x= 

0.800000 

DX“ 

0.532101 



166 


X = 

1.000000 

DX= 

0.538079 



167 


x = 

1.20000 

DX = 

0.507273 



168 


x= 

1.40000 

DX = 

0.456507 



169 


x= 

1.60000 

DX = 

0.399939 



170 


x = 

1.80000 

DX = 

0.346771 



171 


x = 

2.00000 

DX = 

0.301338 



172 

END OF 

DO. 

11 ITERATIONS. 





173 

READY 







174 

max (a, b 

/C ) = ? 





175 

PROGRAM 


MAX LOADED. 





176 

= 8.00000 






177 

READY 







17b 

maxi mum 

= max(a**2,b**2,c**2) 





179 

READY 







180 

maxi mum 

= ? 






181 

MAXIMUM** 

400.000 





182 

READY 







183 

dump( va 1 ues ) 






184 

DUMP OF 

VALUES. 





185 


X = 

2.20000 

A- 

-20.0000 

B= 8.00000 

C = 

186 


FX = 

0.0 

DFX = 

-12.0000 

H= 0.0 

L 1 M 1 T = 

187 


Pl = 

3.14159 DELTAX= 

0.200000 

DX= 0.301338 

MAX 1 MUM = 

188 

READY 







189 

stop 







190 

CHCIW EXIT 

IN USER PROGRAM 





191 

logoff 







192 

B007 LOGOFF 

ACCEPTED 09/10/68 

AT 15: 

56. 
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